www.gusucode.com > Ajax 无限级导航菜单ASP+Access > Ajax 无限级导航菜单ASP+Access\code\conn.asp
<% dim conn,db : db = "#test.mdb" if not isobject(Conn) then 'On Error Resume Next connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) Set conn = Server.CreateObject("adodb.Connection") conn.Open connstr if Err Then Err.Clear : Set Conn = Nothing : Response.Write "系统升级中..........." : Response.End() End If Public Function connclose() conn.close : Set conn = nothing End Function Public Function connexe(byval esql) dim rs set rs = Server.createobject("adodb.recordset") rs.open esql,conn,1,1 if not rs.eof then connexe = rs.getrows() rs.close : set rs = nothing End Function %>